Sub Macro_all_93()



'3
   If Range("Y3").Value > 0 Then
    Range("Y3").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'4
   If Range("Y4").Value > 0 Then
    Range("Y4").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'5
   If Range("Y5").Value > 0 Then
    Range("Y5").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'6
   If Range("Y6").Value > 0 Then
    Range("Y6").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'7
   If Range("Y7").Value > 0 Then
    Range("Y7").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'8
   If Range("Y8").Value > 0 Then
    Range("Y8").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'9
   If Range("Y9").Value > 0 Then
    Range("Y9").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If



'10
   If Range("Y10").Value > 0 Then
    Range("Y10").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'11
   If Range("Y11").Value > 0 Then
    Range("Y11").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'12
   If Range("Y12").Value > 0 Then
    Range("Y12").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'13
   If Range("Y13").Value > 0 Then
    Range("Y13").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'14
   If Range("Y14").Value > 0 Then
    Range("Y14").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'15
   If Range("Y15").Value > 0 Then
    Range("Y15").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'16
   If Range("Y16").Value > 0 Then
    Range("Y16").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'17
   If Range("Y17").Value > 0 Then
    Range("Y17").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'18
   If Range("Y18").Value > 0 Then
    Range("Y18").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'19
   If Range("Y19").Value > 0 Then
    Range("Y19").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'20
   If Range("Y20").Value > 0 Then
    Range("Y20").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'21
   If Range("Y21").Value > 0 Then
    Range("Y21").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'22
   If Range("Y22").Value > 0 Then
    Range("Y22").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'23
   If Range("Y23").Value > 0 Then
    Range("Y23").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'24
   If Range("Y24").Value > 0 Then
    Range("Y24").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'25
   If Range("Y25").Value > 0 Then
    Range("Y25").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'26
   If Range("Y26").Value > 0 Then
    Range("Y26").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'27
   If Range("Y27").Value > 0 Then
    Range("Y27").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'28
   If Range("Y28").Value > 0 Then
    Range("Y28").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'29
   If Range("Y29").Value > 0 Then
    Range("Y29").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'30
   If Range("Y30").Value > 0 Then
    Range("Y30").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'----
'31
   If Range("Y31").Value > 0 Then
    Range("Y31").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'32
   If Range("Y32").Value > 0 Then
    Range("Y32").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'33
   If Range("Y33").Value > 0 Then
    Range("Y33").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'34
   If Range("Y34").Value > 0 Then
    Range("Y34").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'35
   If Range("Y35").Value > 0 Then
    Range("Y35").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'36
   If Range("Y36").Value > 0 Then
    Range("Y36").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'37
   If Range("Y37").Value > 0 Then
    Range("Y37").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'38
   If Range("Y38").Value > 0 Then
    Range("Y38").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'39
   If Range("Y39").Value > 0 Then
    Range("Y39").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'40
   If Range("Y40").Value > 0 Then
    Range("Y40").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'41
   If Range("Y41").Value > 0 Then
    Range("Y41").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'42
   If Range("Y42").Value > 0 Then
    Range("Y42").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'43
   If Range("Y43").Value > 0 Then
    Range("Y43").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'44
   If Range("Y44").Value > 0 Then
    Range("Y44").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'45
   If Range("Y45").Value > 0 Then
    Range("Y45").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'46
   If Range("Y46").Value > 0 Then
    Range("Y46").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'47
   If Range("Y47").Value > 0 Then
    Range("Y47").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'48
   If Range("Y48").Value > 0 Then
    Range("Y48").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'49
   If Range("Y49").Value > 0 Then
    Range("Y49").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'50
   If Range("50").Value > 0 Then
    Range("Y50").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'51
   If Range("Y51").Value > 0 Then
    Range("Y51").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'========2

'52
   If Range("Y52").Value > 0 Then
    Range("Y52").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'53
   If Range("Y53").Value > 0 Then
    Range("Y53").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'54
   If Range("Y54").Value > 0 Then
    Range("Y54").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'55
   If Range("Y55").Value > 0 Then
    Range("Y55").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'56
   If Range("Y56").Value > 0 Then
    Range("Y56").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'57
   If Range("Y57").Value > 0 Then
    Range("Y57").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'58
   If Range("Y58").Value > 0 Then
    Range("Y58").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'59
   If Range("Y59").Value > 0 Then
    Range("Y59").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'60
   If Range("Y60").Value > 0 Then
    Range("Y60").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'61
   If Range("Y61").Value > 0 Then
    Range("Y61").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'62
   If Range("Y62").Value > 0 Then
    Range("Y62").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'63
   If Range("Y63").Value > 0 Then
    Range("Y63").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'64
   If Range("Y64").Value > 0 Then
    Range("Y64").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'65
   If Range("Y65").Value > 0 Then
    Range("Y65").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'66
   If Range("Y66").Value > 0 Then
    Range("Y66").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'67
   If Range("Y67").Value > 0 Then
    Range("Y67").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'68
   If Range("Y68").Value > 0 Then
    Range("Y68").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'69
   If Range("Y69").Value > 0 Then
    Range("Y69").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'70
   If Range("Y70").Value > 0 Then
    Range("Y70").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'71
   If Range("Y71").Value > 0 Then
    Range("Y71").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'72
   If Range("Y72").Value > 0 Then
    Range("Y72").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'----
'73
   If Range("Y73").Value > 0 Then
    Range("Y73").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'74
   If Range("Y74").Value > 0 Then
    Range("Y74").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'75
   If Range("Y75").Value > 0 Then
    Range("Y75").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'76
   If Range("Y76").Value > 0 Then
    Range("Y76").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'77
   If Range("Y77").Value > 0 Then
    Range("Y77").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'78
   If Range("Y78").Value > 0 Then
    Range("Y78").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'79
   If Range("Y79").Value > 0 Then
    Range("Y79").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'80
   If Range("Y80").Value > 0 Then
    Range("Y80").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'81
   If Range("Y81").Value > 0 Then
    Range("Y81").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'82
   If Range("Y82").Value > 0 Then
    Range("Y82").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'83
   If Range("Y83").Value > 0 Then
    Range("Y83").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'84
   If Range("Y84").Value > 0 Then
    Range("Y84").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'85
   If Range("Y85").Value > 0 Then
    Range("Y85").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'86
   If Range("Y86").Value > 0 Then
    Range("Y86").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'87
   If Range("Y87").Value > 0 Then
    Range("Y87").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'88
   If Range("Y88").Value > 0 Then
    Range("Y88").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'89
   If Range("Y89").Value > 0 Then
    Range("Y89").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'90
   If Range("Y90").Value > 0 Then
    Range("Y90").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'91
   If Range("Y91").Value > 0 Then
    Range("Y91").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'92
   If Range("92").Value > 0 Then
    Range("92").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'93
   If Range("Y93").Value > 0 Then
    Range("Y93").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'+++++++3
'94
   If Range("Y94").Value > 0 Then
    Range("Y94").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'95
   If Range("Y95").Value > 0 Then
    Range("Y95").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'96
   If Range("Y96").Value > 0 Then
    Range("Y96").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'97
   If Range("Y97").Value > 0 Then
    Range("Y97").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'98
   If Range("Y98").Value > 0 Then
    Range("Y98").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'99
   If Range("Y99").Value > 0 Then
    Range("Y99").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'100
   If Range("Y100").Value > 0 Then
    Range("Y100").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'101
   If Range("Y101").Value > 0 Then
    Range("Y101").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'102
   If Range("Y102").Value > 0 Then
    Range("Y102").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'103
   If Range("Y103").Value > 0 Then
    Range("Y103").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'104
   If Range("Y104").Value > 0 Then
    Range("Y104").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'105
   If Range("Y105").Value > 0 Then
    Range("Y105").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'106
   If Range("Y106").Value > 0 Then
    Range("Y106").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'107
   If Range("Y107").Value > 0 Then
    Range("Y107").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'108
   If Range("Y108").Value > 0 Then
    Range("Y108").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'109
   If Range("Y109").Value > 0 Then
    Range("Y109").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'110
   If Range("Y110").Value > 0 Then
    Range("Y110").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'111
   If Range("Y111").Value > 0 Then
    Range("Y111").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'112
   If Range("Y112").Value > 0 Then
    Range("Y112").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'113
   If Range("Y113").Value > 0 Then
    Range("Y113").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'114
   If Range("Y114").Value > 0 Then
    Range("Y114").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'----
'31
   If Range("Y31").Value > 0 Then
    Range("Y31").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'32
   If Range("Y32").Value > 0 Then
    Range("Y32").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'33
   If Range("Y33").Value > 0 Then
    Range("Y33").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'34
   If Range("Y34").Value > 0 Then
    Range("Y34").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'35
   If Range("Y35").Value > 0 Then
    Range("Y35").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'36
   If Range("Y36").Value > 0 Then
    Range("Y36").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'37
   If Range("Y37").Value > 0 Then
    Range("Y37").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'38
   If Range("Y38").Value > 0 Then
    Range("Y38").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'39
   If Range("Y39").Value > 0 Then
    Range("Y39").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'40
   If Range("Y40").Value > 0 Then
    Range("Y40").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'41
   If Range("Y41").Value > 0 Then
    Range("Y41").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'42
   If Range("Y42").Value > 0 Then
    Range("Y42").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'43
   If Range("Y43").Value > 0 Then
    Range("Y43").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'44
   If Range("Y44").Value > 0 Then
    Range("Y44").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'45
   If Range("Y45").Value > 0 Then
    Range("Y45").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'46
   If Range("Y46").Value > 0 Then
    Range("Y46").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'47
   If Range("Y47").Value > 0 Then
    Range("Y47").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'48
   If Range("Y48").Value > 0 Then
    Range("Y48").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'49
   If Range("Y49").Value > 0 Then
    Range("Y49").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'50
   If Range("50").Value > 0 Then
    Range("Y50").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'51
   If Range("Y51").Value > 0 Then
    Range("Y51").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'========2

'52
   If Range("Y52").Value > 0 Then
    Range("Y52").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'53
   If Range("Y53").Value > 0 Then
    Range("Y53").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'54
   If Range("Y54").Value > 0 Then
    Range("Y54").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'55
   If Range("Y55").Value > 0 Then
    Range("Y55").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'56
   If Range("Y56").Value > 0 Then
    Range("Y56").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'57
   If Range("Y57").Value > 0 Then
    Range("Y57").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'58
   If Range("Y58").Value > 0 Then
    Range("Y58").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'59
   If Range("Y59").Value > 0 Then
    Range("Y59").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'60
   If Range("Y60").Value > 0 Then
    Range("Y60").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'61
   If Range("Y61").Value > 0 Then
    Range("Y61").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'62
   If Range("Y62").Value > 0 Then
    Range("Y62").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'63
   If Range("Y63").Value > 0 Then
    Range("Y63").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'64
   If Range("Y64").Value > 0 Then
    Range("Y64").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'65
   If Range("Y65").Value > 0 Then
    Range("Y65").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'66
   If Range("Y66").Value > 0 Then
    Range("Y66").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'67
   If Range("Y67").Value > 0 Then
    Range("Y67").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'68
   If Range("Y68").Value > 0 Then
    Range("Y68").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'69
   If Range("Y69").Value > 0 Then
    Range("Y69").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'70
   If Range("Y70").Value > 0 Then
    Range("Y70").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'71
   If Range("Y71").Value > 0 Then
    Range("Y71").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'72
   If Range("Y72").Value > 0 Then
    Range("Y72").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'----
'73
   If Range("Y73").Value > 0 Then
    Range("Y73").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'74
   If Range("Y74").Value > 0 Then
    Range("Y74").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'75
   If Range("Y75").Value > 0 Then
    Range("Y75").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'76
   If Range("Y76").Value > 0 Then
    Range("Y76").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'77
   If Range("Y77").Value > 0 Then
    Range("Y77").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'78
   If Range("Y78").Value > 0 Then
    Range("Y78").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'79
   If Range("Y79").Value > 0 Then
    Range("Y79").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'80
   If Range("Y80").Value > 0 Then
    Range("Y80").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'81
   If Range("Y81").Value > 0 Then
    Range("Y81").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'82
   If Range("Y82").Value > 0 Then
    Range("Y82").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'83
   If Range("Y83").Value > 0 Then
    Range("Y83").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'84
   If Range("Y84").Value > 0 Then
    Range("Y84").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'85
   If Range("Y85").Value > 0 Then
    Range("Y85").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'86
   If Range("Y86").Value > 0 Then
    Range("Y86").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'87
   If Range("Y87").Value > 0 Then
    Range("Y87").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'88
   If Range("Y88").Value > 0 Then
    Range("Y88").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'89
   If Range("Y89").Value > 0 Then
    Range("Y89").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'90
   If Range("Y90").Value > 0 Then
    Range("Y90").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'91
   If Range("Y91").Value > 0 Then
    Range("Y91").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'92
   If Range("92").Value > 0 Then
    Range("92").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'93
   If Range("Y93").Value > 0 Then
    Range("Y93").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'94
   If Range("Y94").Value > 0 Then
    Range("Y94").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'95
   If Range("Y95").Value > 0 Then
    Range("Y95").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'96
   If Range("Y96").Value > 0 Then
    Range("Y96").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'97
   If Range("Y97").Value > 0 Then
    Range("Y97").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'98
   If Range("Y98").Value > 0 Then
    Range("Y98").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'99
   If Range("Y99").Value > 0 Then
    Range("Y99").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'100
   If Range("Y100").Value > 0 Then
    Range("Y100").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'101
   If Range("Y101").Value > 0 Then
    Range("Y101").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'102
   If Range("Y102").Value > 0 Then
    Range("Y102").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'103
   If Range("Y103").Value > 0 Then
    Range("Y103").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'104
   If Range("Y104").Value > 0 Then
    Range("Y104").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'105
   If Range("Y105").Value > 0 Then
    Range("Y105").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'106
   If Range("Y106").Value > 0 Then
    Range("Y106").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'107
   If Range("Y107").Value > 0 Then
    Range("Y107").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'108
   If Range("Y108").Value > 0 Then
    Range("Y108").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'109
   If Range("Y109").Value > 0 Then
    Range("Y109").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'110
   If Range("Y110").Value > 0 Then
    Range("Y110").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'111
   If Range("Y111").Value > 0 Then
    Range("Y111").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'112
   If Range("Y112").Value > 0 Then
    Range("Y112").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'113
   If Range("Y113").Value > 0 Then
    Range("Y113").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'114
   If Range("Y114").Value > 0 Then
    Range("Y114").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'115
   If Range("Y115").Value > 0 Then
    Range("Y115").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'116
   If Range("Y116").Value > 0 Then
    Range("Y116").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'117
   If Range("Y117").Value > 0 Then
    Range("Y117").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'118
   If Range("Y118").Value > 0 Then
    Range("Y118").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'119
   If Range("Y119").Value > 0 Then
    Range("Y119").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'120
   If Range("Y120").Value > 0 Then
    Range("Y120").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'121
   If Range("121").Value > 0 Then
    Range("121").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'122
   If Range("Y122").Value > 0 Then
    Range("Y122").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'123
   If Range("Y123").Value > 0 Then
    Range("Y123").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If



'124
   If Range("Y124").Value > 0 Then
    Range("Y124").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'125
   If Range("Y125").Value > 0 Then
    Range("Y125").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'126
   If Range("Y126").Value > 0 Then
    Range("Y126").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'127
   If Range("Y127").Value > 0 Then
    Range("Y127").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If



'128
   If Range("Y128").Value > 0 Then
    Range("Y128").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'129
   If Range("Y129").Value > 0 Then
    Range("Y129").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'130
   If Range("Y130").Value > 0 Then
    Range("Y130").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'131
   If Range("Y131").Value > 0 Then
    Range("Y131").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'132
   If Range("Y132").Value > 0 Then
    Range("Y132").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'133
   If Range("Y133").Value > 0 Then
    Range("Y133").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'134
   If Range("Y134").Value > 0 Then
    Range("Y134").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'135
   If Range("Y135").Value > 0 Then
    Range("Y135").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'136
   If Range("Y136").Value > 0 Then
    Range("Y136").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'137
   If Range("Y137").Value > 0 Then
    Range("Y137").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'138
   If Range("Y138").Value > 0 Then
    Range("Y138").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'139
   If Range("Y139").Value > 0 Then
    Range("Y139").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'140
   If Range("Y140").Value > 0 Then
    Range("Y140").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If



'141
   If Range("Y141").Value > 0 Then
    Range("Y141").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'142
   If Range("Y142").Value > 0 Then
    Range("Y142").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'143
   If Range("Y143").Value > 0 Then
    Range("Y143").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'144
   If Range("Y144").Value > 0 Then
    Range("Y144").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'145
   If Range("Y145").Value > 0 Then
    Range("Y145").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'146
   If Range("Y146").Value > 0 Then
    Range("Y146").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'147
   If Range("Y147").Value > 0 Then
    Range("Y147").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'148
   If Range("Y148").Value > 0 Then
    Range("Y148").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'149
   If Range("Y149").Value > 0 Then
    Range("Y149").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'150
   If Range("Y150").Value > 0 Then
    Range("Y150").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'151
   If Range("Y151").Value > 0 Then
    Range("Y151").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'152
   If Range("Y152").Value > 0 Then
    Range("Y152").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'153
   If Range("Y153").Value > 0 Then
    Range("Y153").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'154
   If Range("Y154").Value > 0 Then
    Range("Y154").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'155
   If Range("Y155").Value > 0 Then
    Range("Y155").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'156
   If Range("Y156").Value > 0 Then
    Range("Y156").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'157
   If Range("Y157").Value > 0 Then
    Range("Y157").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'158
   If Range("Y158").Value > 0 Then
    Range("Y158").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'159
   If Range("Y159").Value > 0 Then
    Range("Y159").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'160
   If Range("Y160").Value > 0 Then
    Range("Y160").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'161
   If Range("Y161").Value > 0 Then
    Range("Y161").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'162
   If Range("Y162").Value > 0 Then
    Range("Y162").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'163
   If Range("Y163").Value > 0 Then
    Range("Y163").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'164
   If Range("Y164").Value > 0 Then
    Range("Y164").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'165
   If Range("Y165").Value > 0 Then
    Range("Y165").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'166
   If Range("Y166").Value > 0 Then
    Range("Y166").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'167
   If Range("Y167").Value > 0 Then
    Range("Y167").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'168
   If Range("Y168").Value > 0 Then
    Range("Y168").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'169
   If Range("Y169").Value > 0 Then
    Range("Y169").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'170
   If Range("Y170").Value > 0 Then
    Range("Y170").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'171
   If Range("Y171").Value > 0 Then
    Range("Y171").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'172
   If Range("Y172").Value > 0 Then
    Range("Y172").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'173
   If Range("Y173").Value > 0 Then
    Range("Y173").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If


'174
   If Range("Y174").Value > 0 Then
    Range("Y174").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If

'175
   If Range("Y175").Value > 0 Then
    Range("Y175").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'176
   If Range("Y176").Value > 0 Then
    Range("Y176").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'177
   If Range("Y177").Value > 0 Then
    Range("Y177").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'178
   If Range("Y178").Value > 0 Then
    Range("Y178").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'179
   If Range("Y179").Value > 0 Then
    Range("Y179").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'180
   If Range("Y180").Value > 0 Then
    Range("Y180").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'181
   If Range("Y181").Value > 0 Then
    Range("Y181").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'182
   If Range("Y182").Value > 0 Then
    Range("Y182").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'183
   If Range("Y183").Value > 0 Then
    Range("Y183").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'184
   If Range("Y184").Value > 0 Then
    Range("Y184").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'185
   If Range("Y185").Value > 0 Then
    Range("Y185").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'186
   If Range("Y186").Value > 0 Then
    Range("Y186").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'187
   If Range("Y187").Value > 0 Then
    Range("Y187").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'188
   If Range("Y188").Value > 0 Then
    Range("Y188").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'189
   If Range("Y189").Value > 0 Then
    Range("Y189").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'190
   If Range("Y190").Value > 0 Then
    Range("Y190").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'191
   If Range("Y191").Value > 0 Then
    Range("Y191").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'192
   If Range("Y192").Value > 0 Then
    Range("Y192").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'193
   If Range("Y193").Value > 0 Then
    Range("Y193").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'194
   If Range("Y194").Value > 0 Then
    Range("Y194").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'195
   If Range("Y195").Value > 0 Then
    Range("Y195").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'196
   If Range("Y196").Value > 0 Then
    Range("Y196").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'197
   If Range("Y197").Value > 0 Then
    Range("Y197").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'198
   If Range("Y198").Value > 0 Then
    Range("Y198").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'199
   If Range("Y199").Value > 0 Then
    Range("Y199").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'200
   If Range("Y200").Value > 0 Then
    Range("Y200").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'201
   If Range("Y201").Value > 0 Then
    Range("Y201").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'202
   If Range("Y202").Value > 0 Then
    Range("Y202").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'203
   If Range("Y203").Value > 0 Then
    Range("Y203").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'204
   If Range("Y204").Value > 0 Then
    Range("Y204").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'205
   If Range("Y205").Value > 0 Then
    Range("Y205").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'206
   If Range("Y206").Value > 0 Then
    Range("Y206").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'207
   If Range("Y207").Value > 0 Then
    Range("Y207").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'208
   If Range("Y208").Value > 0 Then
    Range("Y208").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'209
   If Range("Y209").Value > 0 Then
    Range("Y209").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'210
   If Range("Y210").Value > 0 Then
    Range("Y210").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'211
   If Range("Y211").Value > 0 Then
    Range("Y211").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'212
   If Range("Y212").Value > 0 Then
    Range("Y212").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'213
   If Range("Y213").Value > 0 Then
    Range("Y213").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'214
   If Range("Y214").Value > 0 Then
    Range("Y214").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'215
   If Range("Y215").Value > 0 Then
    Range("Y215").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'216
   If Range("Y216").Value > 0 Then
    Range("Y216").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If
'217
   If Range("Y217").Value > 0 Then
    Range("Y217").Select
    Selection.Copy
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("RECIPT").PrintOut COPIES:=1
    Else
    MsgBox "PRINTED OFF"
    
    Exit Sub
End If






End Sub

